home *** CD-ROM | disk | FTP | other *** search
/ SuperView Productivity Suite 2 / SuperView Productivity Suite 2.iso / BONUS / PROGS / SvII-UX.lha / UXFormats / Install_UXFormats < prev    next >
Encoding:
Text File  |  1997-10-05  |  1.4 KB  |  53 lines
  1. ; $VER: Install_UXFormats V1.0 (5.10.97)
  2. ; © 1997 by Andreas R. Kleinert.
  3. ; This is the Installer Script for the UX format collection
  4.  
  5. (set #cpu (database "cpu")) (if (> (exists ("sys:libs/68060.library")) 0)   (set #cpu     "68060")  )
  6. (set #ppc_cpu "none")       (if (> (exists ("sys:libs/ppc.library")) 0)     (set #ppc_cpu "PPC60x") )
  7.                             (if (> (exists ("sys:libs/PowerPC.library")) 0) (set #ppc_cpu "PPC60x") )
  8.  
  9. (set #ppc_cpu "PPC60x")
  10.  
  11. (if (= #ppc_cpu "PPC60x")
  12.  (
  13.   (message (cat "\nWhen using SuperView-Libraries' PPC-Modules, make\n"
  14.                 "sure, that you don't have powerpc.library V12+\n"
  15.                 "installed together with ppc.library.\n\n"
  16.                 "Powerpc.library V7 will work, though.")
  17.   )
  18.  )
  19. )
  20.  
  21. (set svlibdir
  22.             (askdir
  23.                    (prompt "Library Path")
  24.                    (help @askdir-help)
  25.                    (newpath)
  26.                    (default "LIBS:")
  27.             )
  28. )
  29.  
  30. (makedir (tackon svlibdir "svobjects"))
  31.  
  32. (copyfiles
  33.   (prompt "Installing modules to LIBS:svobjects ...")
  34.   (help @copyfiles-help)
  35.   (source "libs/svobjects")
  36.   (dest (tackon svlibdir "svobjects"))
  37.   (pattern "#?.svobject")
  38.   (files)
  39. )
  40.  
  41. (if (>= #cpu 68020)
  42.   (
  43.     (copyfiles
  44.       (prompt "Installing 020+ modules to LIBS:svobjects ...")
  45.       (help @copyfiles-help)
  46.       (source "libs/68030")
  47.       (dest #svlibdir)
  48.       (confirm)
  49.       (all)
  50.     )
  51.   )
  52. )
  53.